home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / lfonts_ams / lfonts_ams.tex < prev   
Text File  |  1991-08-06  |  52KB  |  1,246 lines
  1. % File LFONTS - Version of 6 May 1986.
  2. %
  3. % Here is another possibly useful LaTeX file.  This file is a modified
  4. % lfonts.tex file that includes the stuff necessary for the American
  5. % Mathematicsl Society fonts.  There is a file called mssymb.tex that
  6. % they distribute that does the right things so that you can use their
  7. % fonts with Plain TeX but it doesn't have the necessary wiggle to work
  8. % with LaTeX.  I incorporated it into lfonts.tex and made up a special
  9. % LaTeX called ``latex_ams''.  This way you can use the AMS symbols with
  10. % LaTeX's \small, etc.  commands.  The biggest problem is that the
  11. % largest size currently available of the AMS fonts is 10 point.  If you
  12. % try to use anything larger than 10 point LaTeX will complain and tell
  13. % you that it is substituting the 10 point size.
  14. %
  15. % This version of LFONTS.TEX is for the CMR fonts.  It was converted
  16. % from the AMR version by David Fuchs on 18 December 1985.
  17. %
  18. % This file needs to be customized for the fonts available at a particular
  19. % site.  There are three places where changes need to be made.  They
  20. % can be found by searching this file for the string  FONT-CUSTOMIZING.
  21. %
  22. % FONT CONVENTIONS
  23. %
  24. % A TYPESTYLE COMMAND is something like \it that defines a type style.
  25. % Each style command \xx is defined to be \protect\pxx, where 
  26. % \pxx is defined to choose the correct font for the current size.
  27. % This allows style commands to appear in 'unsafe' arguments where
  28. % protection is required.
  29. %
  30. % A SIZE COMMAND is something like \normalsize that defines a type size.
  31. % It is defined by the document style.  However, \normalsize is handled
  32. % somewhat differently because it is called so often--e.g., on every
  33. % page by the output routine.  The document style defines \@normalsize
  34. % instead of \normalsize.
  35. % 
  36. % A ONE-SIZE typestyle is one that exists only in the \normalsize size.
  37. %
  38. % A FONT-SIZE COMMAND is one that defines \textfont, \scriptfont and 
  39. % \scriptscriptfont for the font families corresponding to preloaded fonts,
  40. % as well as the typestyle commands for the preloaded fonts.  Each
  41. % font-size command has an associated @fontsize command, having the same
  42. % name except for an '@' at the front.   All font-size commands are defined 
  43. % in LFONTS.  The naming convention is that a fifteenpt font has a font-size
  44. % name \xvpt, and so on.
  45. %
  46. % Each size command \SIZE executes the command
  47. %             \@setsize\SIZE{BASELINESKIP}\FONTSIZE\@FONTSIZE
  48. % which does the following.
  49. %   0. Executes \@nomath\SIZE to issue warning if in math mode.
  50. %   1. \let \@currsize = \SIZE  
  51. %   2. Sets \strutbox to a strut of height .7 * BASELINESKIP and
  52. %      depth .3 * BASELINESKIP
  53. %   3. Sets \baselineskip to \baselinestretch * BASELINESKIP 
  54. %      and 
  55. %   4. Calls \FONTSIZE 
  56. %   5. Executes the \@FONTSIZE command.
  57. % It should then define all the typestyle commands not defined by the font-size
  58. % command, except for the one-size type styles. A typestyle command for which
  59. % the corresponding font exists but is not preloaded is defined to expand to a
  60. % \@getfont command.  A typestyle whose font does not exist is defined to 
  61. % expand to a \@subfont command.
  62. %
  63. % A one-size typestyle whose font is not preloaded is defined to expand to
  64. % a \@onesizefont command.
  65. %
  66. % \em is defined to be \it inside an unslanted style and \rm inside a
  67. % slanted style.  An \em command in a section title will produce a \pem
  68. % command in the table of contents.
  69. %
  70.  
  71. \def\em{\protect\pem{}}
  72. \def\pem{\ifdim \fontdimen\@ne\font >\z@ \rm \else \it \fi}
  73.  
  74. \def\normalsize{\ifx\@currsize\normalsize \rm \else \@normalsize\fi}
  75.  
  76. % \load{SIZE}{STYLE} : Solves anomaly of loaded-on-demand font
  77. %    used for first time in math mode.  Give this command outside math
  78. %    mode, before formula using it for first time.
  79. \def\load#1#2{\let\@tempa\@currsize \let\@currsize\relax #1#2\@tempa}
  80.  
  81. % \newfont{\CMD}{FONT} defines \CMD to be the font FONT.
  82. %    It is equivalent to \font \CMD = FONT
  83. % \symbol{NUM} == \char NUM
  84.  
  85. \def\newfont#1#2{\@ifdefinable #1{\font #1=#2\relax}}
  86. \def\symbol#1{\char #1\relax}
  87.  
  88.  
  89.  
  90. % \@getfont \STYLE \FAM \@FONTSIZE{LOADING.INFO}
  91. %   \STYLE       = style command
  92. %   \FAM         = a control sequence defined by \newfam\FAM
  93. %   \@FONTSIZE   = the @fontsize command for the current size. 
  94. %   LOADING.INFO = information needed to load the font--e.g., 
  95. %                  cmtti10 \magstep 2
  96. %   Does the following, where \FONTNAME denotes a new unique, untypeable
  97. %   font name:
  98. %    1. Executes  \font \FONTNAME = LOADING.INFO 
  99. %    2. Appends '\textfont FAM \FONTNAME \def\STYLE{\fam \FAM \FONTNAME}' 
  100. %       to the definition of \@FONTSIZE.
  101. %    3. Executes \@FONTSIZE \STYLE.
  102. %
  103. % \@nohyphens\STYLE\@FONTSIZE
  104. %   Used right after \@getfont to set \hyphenchar of the new font to -1,
  105. %   thereby prohibiting hyphenation.  It is used with \tt fonts.
  106. %   (\@nohyphens was added on 12/18/85)
  107. %
  108. % \@subfont \STYLE \REPSTYLE 
  109. %   \STYLE, \REPSTYLE = type style commands.
  110. %   Types warning message and defines uses \REPSTYLE.
  111. %
  112. % \@onesizefont \STYLE {LOADING.INFO}
  113. %   Defines \STYLE to be a typestyle that exists only for the \normalsize
  114. %   size.  It produces the font specified by LOADING.INFO
  115. %
  116. % \@addfontinfo\@FONTSIZE{DEFS}
  117. %    Expands DEFS and adds to the definition of \@FONTSIZE. Items that should 
  118. %    not be expanded should be protected with \@prtct---except no protection
  119. %    is needed for '\def\foo', only for the contents of the definition.
  120. %
  121. % \@nomath\CS : Types a warning '\CS used in math mode' if encountered
  122. %    in math mode.
  123.  
  124. % Remove \outer from definition of \newfam
  125. \def\newfam{\alloc@8\fam\chardef\sixt@@n}
  126.  
  127. \def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
  128.    #2\setbox\strutbox\hbox{\vrule height.7\baselineskip
  129.       depth.3\baselineskip width\z@}\baselineskip\baselinestretch\baselineskip
  130.    \normalbaselineskip\baselineskip#3#4}
  131.  
  132. \newif\if@bold
  133.  
  134. \let\@prtct=\relax
  135.  
  136. \def\@addfontinfo#1#2{{\def\@prtct{\noexpand\@prtct\noexpand}\def\def{\noexpand
  137.     \def\noexpand}\xdef#1{#1#2}}}
  138.  
  139. \def\@getfont#1#2#3#4{\@ifundefined{\string #1\string #3}{\global\expandafter
  140.     \font \csname \string #1\string #3\endcsname #4\relax 
  141.      \@addfontinfo#3{\textfont #2\csname \string #1\string #3\endcsname 
  142.      \scriptfont #2\csname \string #1\string #3\endcsname 
  143.      \scriptscriptfont #2\csname \string #1\string #3\endcsname 
  144.      \def#1{\fam #2\csname\string #1\string #3\endcsname}}}{}#3#1}
  145.  
  146. \def\@nohyphens#1#2{\global\expandafter \hyphenchar\csname 
  147.    \string #1\string #2\endcsname \m@ne}
  148.  
  149. \def\@subfont#1#2{\@warning{No \string#1\space typeface in 
  150.         this size, using \string#2}#2}
  151.  
  152. \def\@onesizefont#1#2{\expandafter\newfam\csname fm\string#1\endcsname
  153.   \global\expandafter\font\csname ft\string#1\endcsname #2\relax
  154.   \gdef#1{\ifx \@currsize\normalsize \@ftfam#1\else
  155.   \@warning{Typeface \string#1\space available only in 
  156.   \string\normalsize, using \string\rm}\gdef #1{\ifx \@currsize\normalsize 
  157.   \textfont\@fontfam#1 \scriptfont\@fontfam#1 \scriptscriptfont
  158.   \@fontfam#1\@ftfam#1\else \rm\fi}#1\fi}#1}
  159.  
  160. \def\@ftfam#1{\fam\csname fm\string#1\endcsname\csname ft\string#1\endcsname}
  161.  
  162. \def\@nomath#1{\ifmmode \@warning{\string#1\space in math mode.}\fi}
  163. \def\@nomathbold{\ifmmode \@warning{\string\mathbold\space in math mode.}\fi}
  164.  
  165. % The following definitions save token space.  E.g., using \@height 
  166. % instead of height saves 5 tokens at the cost in time of one macro 
  167. % expansion.
  168.  
  169. \def\@height{height}
  170. \def\@depth{depth}
  171. \def\@width{width}
  172.  
  173. \def\@magscale#1{ scaled \magstep #1}
  174. \def\@halfmag{ scaled \magstephalf}
  175. \def\@ptscale#1{ scaled #100}
  176.  
  177.  
  178. %% FONT-CUSTOMIZING:  The following \font commands define the
  179. %% preloaded LaTeX fonts.  Font names should be changed to cause
  180. %% different fonts to be loaded in place of these particular AMR fonts.
  181. %% \font commands should be added or deleted to change which fonts
  182. %% are preloaded.
  183.  
  184. % five point
  185.  \font\fivrm  = cmr5               % roman
  186.  \font\fivmi  = cmmi5              % math italic
  187.     \skewchar\fivmi ='177          %  for placement of accents
  188. %\font\fivmib = cmmib10  \@ptscale5 % bold math italic
  189.  \font\fivsy  = cmsy5              % math symbols
  190.     \skewchar\fivsy ='60           %   for placement of math accents
  191. %\font\fivsyb = cmbsy10 \@ptscale5 % bold math symbols
  192.  \font\fivxm  = msxm5           % AMS symbols 1 medium
  193.  \font\fivym  = msym5           % AMS symbols 2 medium
  194. %\font\fivit  = cmti7   scaled 714 % text italic
  195. %\font\fivsl  = cmsl10  \@ptscale5 % slanted
  196. %\font\fivbf  = cmbx7   scaled 714 % extended bold 
  197. %\font\fivbfs = cmbxsl10\@ptscale5 % extended bold slanted
  198. %\font\fivtt  = cmtt10  \@ptscale5 % typewriter
  199. %\font\fivtti = cmitt10 \@ptscale5 % italic typewriter
  200. %\font\fivtts = cmsltt10\@ptscale5 % slanted typewriter
  201. %\font\fivsf  = cmss10  \@ptscale5 % sans serif
  202. %\font\fivsfi = cmssi10 \@ptscale5 % italic sans serif
  203. %\font\fivsfb = cmssbx10\@ptscale5 % bold sans serif
  204. %\font\fivsc  = cmcsc10 \@ptscale5 % small caps
  205.  \font\fivly  = lasy5             % LaTeX symbols
  206. %\font\fivlyb = lasyb10 \@ptscale5 % LaTeX symbols
  207. %\font\fivuit = cmu10   \@ptscale5 % unslanted italic
  208.  
  209. % six point
  210.  \font\sixrm  = cmr6               % roman
  211.  \font\sixmi  = cmmi6              % math italic
  212.     \skewchar\sixmi ='177          %  for placement of accents
  213. %\font\sixmib = cmmib10  \@ptscale6 % bold math italic
  214.  \font\sixsy  = cmsy6              % math symbols
  215.     \skewchar\sixsy ='60           %   for placement of math accents
  216. %\font\sixsyb = cmbsy10 \@ptscale6 % bold math symbols
  217.  \font\sixxm  = msxm6           % AMS symbols 1 medium
  218.  \font\sixym  = msym6           % AMS symbols 2 medium
  219. %\font\sixit  = cmti7   scaled 857 % text italic
  220. %\font\sixsl  = cmsl10  \@ptscale6 % slanted
  221. %\font\sixbf  = cmbx7   scaled 857 % extended bold 
  222. %\font\sixbfs = cmbxsl10\@ptscale6 % extended bold slanted
  223. %\font\sixtt  = cmtt10  \@ptscale6 % typewriter
  224. %\font\sixtti = cmitt10 \@ptscale6 % italic typewriter
  225. %\font\sixtts = cmsltt10\@ptscale6 % slanted typewriter
  226. %\font\sixsf  = cmss10  \@ptscale6 % sans serif
  227. %\font\sixsfi = cmssi10 \@ptscale6 % italic sans serif
  228. %\font\sixsfb = cmssbx10\@ptscale6 % bold sans serif
  229. %\font\sixsc  = cmcsc10 \@ptscale6 % small caps
  230.  \font\sixly  = lasy6             % LaTeX symbols
  231. %\font\sixlyb = lasyb10 \@ptscale6 % LaTeX symbols
  232. %\font\sixuit = cmu10   \@ptscale6 % unslanted italic
  233. %\font\sixcyr = mcyr6           % AMS Cyrillic lightface
  234.  
  235. % seven point
  236.  \font\sevrm  = cmr7               % roman
  237.  \font\sevmi  = cmmi7              % math italic
  238.     \skewchar\sevmi ='177          %  for placement of accents
  239. %\font\sevmib = cmmib10  \@ptscale7 % bold math italic
  240.  \font\sevsy  = cmsy7              % math symbols
  241.     \skewchar\sevsy ='60           %   for placement of math accents
  242. %\font\sevsyb = cmbsy10 \@ptscale7 % bold math symbols
  243.  \font\sevxm  = msxm7           % AMS symbols 1 medium
  244.  \font\sevym  = msym7           % AMS symbols 2 medium
  245.  \font\sevit  = cmti7              % text italic
  246. %\font\sevsl  = cmsl10  \@ptscale7 % slanted
  247. %\font\sevbf  = cmbx7              % extended bold 
  248. %\font\sevbfs = cmbxsl10\@ptscale7 % extended bold slanted
  249. %\font\sevtt  = cmtt10  \@ptscale7 % typewriter
  250. %\font\sevtti = cmitt10 \@ptscale7 % italic typewriter
  251. %\font\sevtts = cmsltt10\@ptscale7 % slanted typewriter
  252. %\font\sevsf  = cmss10  \@ptscale7 % sans serif
  253. %\font\sevsfi = cmssi10 \@ptscale7 % italic sans serif
  254. %\font\sevsfb = cmssbx10\@ptscale7 % bold sans serif
  255. %\font\sevsc  = cmcsc10 \@ptscale7 % small caps
  256.  \font\sevly  = lasy7             % LaTeX symbols
  257. %\font\sevlyb = lasyb10 \@ptscale7 % LaTeX symbols
  258. %\font\sevuit = cmu10   \@ptscale7 % unslanted italic
  259. %\font\sevcyr = mcyr7           % AMS Cyrillic lightface
  260.  
  261. % eight point
  262.  \font\egtrm  = cmr8               % roman
  263.  \font\egtmi  = cmmi8              % math italic
  264.     \skewchar\egtmi ='177          %  for placement of accents
  265. %\font\egtmib = cmmib10  \@ptscale8 % bold math italic
  266.  \font\egtsy  = cmsy8              % math symbols
  267.     \skewchar\egtsy ='60           %   for placement of math accents
  268. %\font\egtsyb = cmbsy10 \@ptscale8 % bold math symbols
  269.  \font\egtxm  = msxm8           % AMS symbols 1 medium
  270.  \font\egtym  = msym8           % AMS symbols 2 medium
  271.  \font\egtit  = cmti8              % text italic
  272. %\font\egtsl  = cmsl8              % slanted
  273. %\font\egtbf  = cmbx8              % extended bold 
  274. %\font\egtbfs = cmbxsl10\@ptscale8 % extended bold slanted
  275. %\font\egttt  = cmtt8              % typewriter
  276. %\font\egttti = cmitt10 \@ptscale8 % italic typewriter
  277. %\font\egttts = cmsltt10\@ptscale8 % slanted typewriter
  278. %\font\egtsf  = cmss10  \@ptscale8 % sans serif
  279. %\font\egtsfi = cmssi10 \@ptscale8 % italic sans serif
  280. %\font\egtsfb = cmssbx10\@ptscale8 % bold sans serif
  281. %\font\egtsc  = cmcsc10 \@ptscale8 % small caps
  282.  \font\egtly  = lasy8             % LaTeX symbols
  283. %\font\egtlyb = lasyb10 \@ptscale8 % LaTeX symbols
  284. %\font\egtuit = cmu10   \@ptscale8 % unslanted italic
  285. %\font\egtcyr = mcyr8           % AMS Cyrillic lightface
  286. %\font\egtcyb = mcyb8           % AMS Cyrillic boldface
  287.  
  288. % nine point
  289.  \font\ninrm  = cmr9               % roman
  290.  \font\ninmi  = cmmi9              % math italic
  291.     \skewchar\ninmi ='177          %  for placement of accents
  292. %\font\ninmib = cmmib10  \@ptscale9 % bold math italic
  293.  \font\ninsy  = cmsy9              % math symbols
  294.     \skewchar\ninsy ='60           %   for placement of math accents
  295. %\font\ninsyb = cmbsy10 \@ptscale9 % bold math symbols
  296.  \font\ninxm  = msxm9           % AMS symbols 1 medium
  297.  \font\ninym  = msym9           % AMS symbols 2 medium
  298.  \font\ninit  = cmti9              % text italic
  299. %\font\ninsl  = cmsl9              % slanted
  300.  \font\ninbf  = cmbx9              % extended bold 
  301. %\font\ninbfs = cmbxsl10\@ptscale9 % extended bold slanted
  302.  \font\nintt  = cmtt9              % typewriter
  303.     \hyphenchar\nintt = -1         %  suppress hyphenation in \tt font
  304. %\font\nintti = cmitt10 \@ptscale9 % italic typewriter
  305. %\font\nintts = cmsltt10\@ptscale9 % slanted typewriter
  306. %\font\ninsf  = cmss10  \@ptscale9 % sans serif
  307. %\font\ninsfi = cmssi10 \@ptscale9 % italic sans serif
  308. %\font\ninsfb = cmssbx10\@ptscale9 % bold sans serif
  309. %\font\ninsc  = cmcsc10 \@ptscale9 % small caps
  310.  \font\ninly  = lasy9             % LaTeX symbols
  311. %\font\ninlyb = lasyb10 \@ptscale9 % LaTeX symbols
  312. %\font\ninuit = cmu10   \@ptscale9 % unslanted italic
  313. %\font\nincyr = mcyr9           % AMS Cyrillic lightface
  314. %\font\nincyb = mcyb9           % AMS Cyrillic boldface
  315.  
  316. % ten point
  317.  \font\tenrm  = cmr10    % roman
  318.  \font\tenmi  = cmmi10   % math italic
  319.     \skewchar\tenmi ='177  %  for placement of accents
  320. %\font\tenmib = cmmib10   % bold math italic
  321.  \font\tensy  = cmsy10   % math symbols
  322.     \skewchar\tensy ='60 %   for placement of math accents
  323. %\font\tensyb = cmbsy10  % bold symbols
  324.  \font\tenxm  = msxm10     % AMS symbols 1 medium
  325.  \font\tenym  = msym10     % AMS symbols 2 medium
  326.  \font\tenit  = cmti10   % text italic
  327.  \font\tensl  = cmsl10   % slanted
  328.  \font\tenbf  = cmbx10   % extended bold 
  329. %\font\tenbfs = cmbxsl10 % extended bold slanted
  330.  \font\tentt  = cmtt10   % typewriter
  331.     \hyphenchar\tentt = -1         %  suppress hyphenation in \tt font
  332. %\font\tentti = cmitt10  % italic typewriter
  333. %\font\tentts = cmsltt10 % slanted typewriter
  334.  \font\tensf  = cmss10   % sans serif
  335. %\font\tensfi = cmssi10  % italic sans serif
  336. %\font\tensfb = cmssbx10 % bold sans serif
  337. %\font\tensc  = cmcsc10  % small caps
  338.  \font\tenly  = lasy10  % LaTeX symbols
  339. %\font\tenlyb = lasyb10 % bold LaTeX symbols
  340. %\font\tenuit = cmu10    % unslanted italic
  341. %\font\tencyr = mcyr10     % AMS Cyrillic lightface
  342. %\font\tencyb = mcyb10     % AMS Cyrillic boldface
  343.  
  344. % eleven point
  345.  \font\elvrm  = cmr10    \@halfmag % roman  
  346.  \font\elvmi  = cmmi10   \@halfmag % math italic
  347.     \skewchar\elvmi ='177          %  for placement of accents
  348. %\font\elvmib = cmmib10   \@halfmag % bold math italic
  349.  \font\elvsy  = cmsy10   \@halfmag % math symbols
  350.     \skewchar\elvsy ='60           %   for placement of math accents
  351. %\font\elvsyb = cmbsy10  \@halfmag % bold symbols
  352.  \font\elvit  = cmti10   \@halfmag % text italic
  353.  \font\elvsl  = cmsl10   \@halfmag % slanted
  354.  \font\elvbf  = cmbx10   \@halfmag % exelvded bold 
  355. %\font\elvbfs = cmbxsl10 \@halfmag % exelvded bold slanted
  356.  \font\elvtt  = cmtt10   \@halfmag % typewriter
  357.     \hyphenchar\elvtt = -1         %  suppress hyphenation in \tt font
  358. %\font\elvtti = cmitt10  \@halfmag % italic typewriter
  359. %\font\elvtts = cmsltt10 \@halfmag % slanted typewriter
  360.  \font\elvsf  = cmss10   \@halfmag % sans serif
  361. %\font\elvsfi = cmssi10  \@halfmag % italic sans serif
  362. %\font\elvsfb = cmssbx10 \@halfmag % bold sans serif
  363. %\font\elvsc  = cmcsc10  \@halfmag % small caps
  364.  \font\elvly  = lasy10  \@halfmag % LaTeX symbols
  365. %\font\elvlyb = lasyb10 \@halfmag % bold LaTeX symbols
  366. %\font\elvuit = cmu10    \@halfmag % unslanted italic
  367.  
  368. % twelve point
  369.  \font\twlrm  = cmr10    \@magscale1 % roman  
  370.  \font\twlmi  = cmmi10   \@magscale1 % math italic
  371.     \skewchar\twlmi ='177          %  for placement of accents
  372. %\font\twlmib = cmmib10   \@magscale1 % bold math italic
  373.  \font\twlsy  = cmsy10   \@magscale1 % math symbols
  374.     \skewchar\twlsy ='60           %   for placement of math accents
  375. %\font\twlsyb = cmbsy10  \@magscale1 % bold symbols
  376.  \font\twlit  = cmti10   \@magscale1 % text italic
  377.  \font\twlsl  = cmsl10   \@magscale1 % slanted
  378.  \font\twlbf  = cmbx10   \@magscale1 % extended bold 
  379. %\font\twlbfs = cmbxsl10 \@magscale1 % extended bold slanted
  380.  \font\twltt  = cmtt10   \@magscale1 % typewriter
  381.     \hyphenchar\twltt = -1         %  suppress hyphenation in \tt font
  382. %\font\twltti = cmitt10  \@magscale1 % italic typewriter
  383. %\font\twltts = cmsltt10 \@magscale1 % slanted typewriter
  384.  \font\twlsf  = cmss10   \@magscale1 % sans serif
  385. %\font\twlsfi = cmssi10  \@magscale1 % italic sans serif
  386. %\font\twlsfb = cmssbx10 \@magscale1 % bold sans serif
  387. %\font\twlsc  = cmcsc10  \@magscale1 % small caps
  388.  \font\twlly  = lasy10  \@magscale1 % LaTeX symbols
  389. %\font\twllyb = lasyb10 \@magscale1 % bold LaTeX symbols
  390. %\font\twluit = cmu10    \@magscale1 % unslanted italic
  391.  
  392. % fourteen point
  393.  \font\frtnrm  = cmr10    \@magscale2 % roman  
  394.  \font\frtnmi  = cmmi10   \@magscale2 % math italic
  395.     \skewchar\frtnmi ='177          %  for placement of accents
  396. %\font\frtnmib = cmmib10   \@magscale2 % bold math italic
  397.  \font\frtnsy  = cmsy10   \@magscale2 % math symbols
  398.     \skewchar\frtnsy ='60           %   for placement of math accents
  399. %\font\frtnsyb = cmbsy10  \@magscale2 % bold symbols
  400. %\font\frtnit  = cmti10   \@magscale2 % text italic
  401. %\font\frtnsl  = cmsl10   \@magscale2 % slanted
  402.  \font\frtnbf  = cmbx10   \@magscale2 % extended bold 
  403. %\font\frtnbfs = cmbxsl10 \@magscale2 % extended bold slanted
  404. %\font\frtntt  = cmtt10   \@magscale2 % typewriter
  405. %\font\frtntti = cmitt10  \@magscale2 % italic typewriter
  406. %\font\frtntts = cmsltt10 \@magscale2 % slanted typewriter
  407. %\font\frtnsf  = cmss10   \@magscale2 % sans serif
  408. %\font\frtnsfi = cmssi10  \@magscale2 % italic sans serif
  409. %\font\frtnsfb = cmssbx10 \@magscale2 % bold sans serif
  410. %\font\frtnsc  = cmcsc10  \@magscale2 % small caps
  411.  \font\frtnly  = lasy10  \@magscale2 % LaTeX symbols
  412. %\font\frtnlyb = lasyb10 \@magscale2 % bold LaTeX symbols
  413. %\font\frtnuit = cmu10    \@magscale2 % unslanted italic
  414.  
  415. % seventeen point
  416.  \font\svtnrm  = cmr10    \@magscale3 % roman  
  417.  \font\svtnmi  = cmmi10   \@magscale3 % math italic
  418.     \skewchar\svtnmi ='177          %  for placement of accents
  419. %\font\svtnmib = cmmib10   \@magscale3 % bold math italic
  420.  \font\svtnsy  = cmsy10   \@magscale3 % math symbols
  421.     \skewchar\svtnsy ='60           %   for placement of math accents
  422. %\font\svtnsyb = cmbsy10  \@magscale3 % bold symbols
  423. %\font\svtnit  = cmti10   \@magscale3 % text italic
  424. %\font\svtnsl  = cmsl10   \@magscale3 % slanted
  425.  \font\svtnbf  = cmbx10   \@magscale3 % extended bold 
  426. %\font\svtnbfs = cmbxsl10 \@magscale3 % extended bold slanted
  427. %\font\svtntt  = cmtt10   \@magscale3 % typewriter
  428. %\font\svtntti = cmitt10  \@magscale3 % italic typewriter
  429. %\font\svtntts = cmsltt10 \@magscale3 % slanted typewriter
  430. %\font\svtnsf  = cmss10   \@magscale3 % sans serif
  431. %\font\svtnsfi = cmssi10  \@magscale3 % italic sans serif
  432. %\font\svtnsfb = cmssbx10 \@magscale3 % bold sans serif
  433. %\font\svtnsc  = cmcsc10  \@magscale3 % small caps
  434.  \font\svtnly  = lasy10  \@magscale3 % LaTeX symbols
  435. %\font\svtnlyb = lasyb10 \@magscale3 % bold LaTeX symbols
  436. %\font\svtnuit = cmu10    \@magscale3 % unslanted italic
  437.  
  438. % twenty point
  439.  \font\twtyrm  = cmr10    \@magscale4 % roman  
  440.  \font\twtymi  = cmmi10   \@magscale4 % math italic
  441.     \skewchar\twtymi ='177          %  for placement of accents
  442. %\font\twtymib = cmmib10   \@magscale4 % bold math italic
  443.  \font\twtysy  = cmsy10   \@magscale4 % math symbols
  444.     \skewchar\twtysy ='60           %   for placement of math accents
  445. %\font\twtysyb = cmbsy10  \@magscale4 % bold symbols
  446. %\font\twtyit  = cmti10   \@magscale4 % text italic
  447. %\font\twtysl  = cmsl10   \@magscale4 % slanted
  448. %\font\twtybf  = cmbx10   \@magscale4 % extended bold 
  449. %\font\twtybfs = cmbxsl10 \@magscale4 % extended bold slanted
  450. %\font\twtytt  = cmtt10   \@magscale4 % typewriter
  451. %\font\twtytti = cmitt10  \@magscale4 % italic typewriter
  452. %\font\twtytts = cmsltt10 \@magscale4 % slanted typewriter
  453. %\font\twtysf  = cmss10   \@magscale4 % sans serif
  454. %\font\twtysfi = cmssi10  \@magscale4 % italic sans serif
  455. %\font\twtysfb = cmssbx10 \@magscale4 % bold sans serif
  456. %\font\twtysc  = cmcsc10  \@magscale4 % small caps
  457.  \font\twtyly  = lasy10  \@magscale4 % LaTeX symbols
  458. %\font\twtylyb = lasyb10 \@magscale4 % bold LaTeX symbols
  459. %\font\twtyuit = cmu10    \@magscale4 % unslanted italic
  460.  
  461. % twenty-five point
  462.  \font\twfvrm  = cmr10    \@magscale5 % roman  
  463. %\font\twfvmi  = cmmi10   \@magscale5 % math italic
  464. %\font\twfvmib = cmmib10   \@magscale5 % bold math italic
  465. %\font\twfvsy  = cmsy10   \@magscale5 % math symbols
  466. %\font\twfvsyb = cmbsy10  \@magscale5 % bold symbols
  467. %\font\twfvit  = cmti10   \@magscale5 % text italic
  468. %\font\twfvsl  = cmsl10   \@magscale5 % slanted
  469. %\font\twfvbf  = cmbx10   \@magscale5 % extended bold 
  470. %\font\twfvbfs = cmbxsl10 \@magscale5 % extended bold slanted
  471. %\font\twfvtt  = cmtt10   \@magscale5 % typewriter
  472. %\font\twfvtti = cmitt10  \@magscale5 % italic typewriter
  473. %\font\twfvtts = cmsltt10 \@magscale5 % slanted typewriter
  474. %\font\twfvsf  = cmss10   \@magscale5 % sans serif
  475. %\font\twfvsfi = cmssi10  \@magscale5 % italic sans serif
  476. %\font\twfvsfb = cmssbx10 \@magscale5 % bold sans serif
  477. %\font\twfvsc  = cmcsc10  \@magscale5 % small caps
  478. %\font\twfvly  = lasy10   \@magscale5 % LaTeX symbols
  479. %\font\twfvlyb = lasyb10  \@magscale5 % bold LaTeX symbols
  480. %\font\twfvuit = cmu10    \@magscale5 % unslanted italic
  481.  
  482. % Math extension
  483.  \font\tenex   = cmex10 
  484.  
  485. % line & circle fonts 
  486. \font\tenln    = line10
  487. \font\tenlnw   = linew10  
  488. \font\tencirc  = circle10
  489. \font\tencircw = circlew10 
  490.  
  491. % Change made 6 May 86: `\@warning' replaced by `\immediate\write 15' 
  492. % since it's not defined when lfonts.tex is read by lplain.tex.
  493. %
  494. \ifnum\fontdimen8\tenln=\fontdimen8\tencirc \else 
  495.   \immediate\write 15{Incompatible thin line and circle fonts}\fi
  496. \ifnum\fontdimen8\tenlnw=\fontdimen8\tencircw \else 
  497.   \immediate\write 15{Incompatible thick line and circle fonts}\fi
  498.  
  499.  
  500. % protected font names
  501. \def\rm{\protect\prm}
  502. \def\it{\protect\pit}
  503. \def\bf{\protect\pbf}
  504. \def\sl{\protect\psl}
  505. \def\sf{\protect\psf}
  506. \def\sc{\protect\psc}
  507. \def\tt{\protect\ptt}
  508. \def\cyr{\protect\cyracc\protect\pcyr}
  509. \def\cyb{\protect\cyracc\protect\pcyb}
  510.  
  511. %% FONT-CUSTOMIZING:  The following definitions define certain commands
  512. %% to be abbreviations for certain font names.  These commands are used
  513. %% below in \@getfont commands, which load the loaded-on-demand fonts.
  514. %% This is done only to save space.  To change the fonts that are loaded
  515. %% on demand, one can either change these definitions or else change
  516. %% the arguments of the \@getfont commands.  
  517. %%
  518. \def\@mbi{cmmib10}
  519. \def\@mbsy{cmbsy10}
  520. \def\@mcsc{cmcsc10}
  521. \def\@mss{cmss10}
  522. \def\@lasyb{lasyb10}
  523.  
  524. % families
  525.  
  526. \newfam\itfam      % \it is family 4
  527. \newfam\slfam      % \sl is family 5
  528. \newfam\bffam      % \bf is family 6
  529. \newfam\ttfam      % \tt is family 7
  530. \newfam\sffam      % \sf is family 8
  531. \newfam\scfam      % \sf is family 9
  532. \newfam\lyfam      % \ly is family 10
  533. \newfam\xmfam       % \mx is family 11
  534. \newfam\ymfam       % \my is family 12
  535. \newfam\cyrfam       % \cyr is family 13
  536. \newfam\cybfam       % \cyb is family 14
  537.  
  538. \def\cal{\fam\tw@}
  539. \def\mit{\fam\@ne}
  540.  
  541. \def\@setstrut{\setbox\strutbox=\hbox{\vrule \@height .7\baselineskip
  542.     \@depth .3\baselineskip \@width\z@}}
  543.  
  544.  
  545. %% FONT-CUSTOMIZING: The commands \vpt, \vipt, ... , \xxvpt perform all
  546. %% the declarations needed to change the type size to 5pt, 6pt, ... ,
  547. %% 25pt.  To see how this works, consider the definition of \viipt,
  548. %% which determines the fonts used in a 7pt type size.  The command
  549. %%    \def\pit{\fam\itfam\sevit}
  550. %% means that the \it command causes the preloaded \sevit font to
  551. %% be used--this font was defined earlier with a \font\sevit...
  552. %% command.  The commands
  553. %%     \textfont\itfam\sevit 
  554. %%     \scriptfont\itfam\sevit 
  555. %%     \scriptscriptfont\itfam\sevit 
  556. %% tell TeX to use the \sevit font for all three math-mode sizes
  557. %% (text, script, and scriptscript) for the 7pt size.  
  558. %% The fonts appearing in these commands must be preloaded.
  559. %% 
  560. %% The command 
  561. %%     \def\pbf{\@getfont\pbf\bffam\@viipt{cmbx7}}
  562. %% declares \bf to use a loaded-on-demand font--namely, the font
  563. %% cmbx7.
  564. %%
  565. %% The command
  566. %%     \def\ptt{\@subfont\tt\rm}
  567. %% declares that the \tt font is unavailable in the 7pt size, so
  568. %% the \rm font is used instead.  (The substituted type style should
  569. %% correspond to a preloaded size.)
  570.  
  571. \def\vpt{\textfont\z@\fivrm 
  572.   \scriptfont\z@\fivrm \scriptscriptfont\z@\fivrm
  573. \textfont\@ne\fivmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
  574. \textfont\tw@\fivsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
  575. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  576. \textfont\xmfam=\fivxm \scriptfont\xmfam=\fivxm \scriptscriptfont\xmfam=\fivxm
  577. \textfont\ymfam=\fivym \scriptfont\ymfam=\fivym \scriptscriptfont\ymfam=\fivym
  578. \def\prm{\fam\z@\fivrm}%
  579. \def\sixcyr{\@getfont\pcyr\cyrfam\@vipt{mcyr6}}%
  580. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  581.   \unboldmath\fam\@ne\@boldfalse}\@boldfalse
  582. \def\boldmath{\@subfont\boldmath\unboldmath}%
  583. \def\pit{\@getfont\pit\itfam\@vpt{cmti7 scaled714}}%
  584. \def\psl{\@subfont\sl\it}%
  585. \def\pbf{\@getfont\pbf\bffam\@vpt{cmbx7 scaled 714}}%
  586. \def\ptt{\@subfont\tt\rm}%
  587. \def\psf{\@subfont\sf\rm}%
  588. \def\psc{\@subfont\sc\rm}%
  589. \def\pcyr{\@subfont\cyr\sixcyr}%
  590. \def\pcyb{\@subfont\cyb\sixcyr}%
  591. \def\ly{\fam\lyfam\fivly}\textfont\lyfam\fivly 
  592.     \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly 
  593. \@setstrut\rm}
  594.  
  595. \def\@vpt{}
  596.  
  597. \def\vipt{\textfont\z@\sixrm 
  598.   \scriptfont\z@\sixrm \scriptscriptfont\z@\sixrm
  599. \textfont\@ne\sixmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\sixmi
  600. \textfont\tw@\sixsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\sixsy
  601. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  602. \textfont\xmfam=\sixxm \scriptfont\xmfam=\sixxm \scriptscriptfont\xmfam=\sixxm
  603. \textfont\ymfam=\sixym \scriptfont\ymfam=\sixym \scriptscriptfont\ymfam=\sixym
  604. \def\prm{\fam\z@\sixrm}%
  605. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  606.   \unboldmath\@boldfalse}\@boldfalse
  607. \def\boldmath{\@subfont\boldmath\unboldmath}%
  608. \def\pit{\@subfont\it\rm}%
  609. \def\psl{\@subfont\sl\rm}%
  610. \def\pbf{\@getfont\pbf\bffam\@vipt{cmbx7 scaled857}}%
  611. \def\ptt{\@subfont\tt\rm}%
  612. \def\psf{\@subfont\sf\rm}%
  613. \def\psc{\@subfont\sc\rm}%
  614. \def\pcyr{\@getfont\pcyr\cyrfam\@vipt{mcyr6}}%
  615. \def\pcyb{\@subfont\cyb\cyr}%
  616. \def\ly{\fam\lyfam\sixly}\textfont\lyfam\sixly 
  617.     \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\sixly 
  618. \@setstrut\rm}
  619.  
  620. \def\@vipt{}
  621.  
  622. \def\viipt{\textfont\z@\sevrm 
  623.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  624. \textfont\@ne\sevmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
  625. \textfont\tw@\sevsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
  626. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  627. \textfont\xmfam=\sevxm \scriptfont\xmfam=\fivxm \scriptscriptfont\xmfam=\fivxm
  628. \textfont\ymfam=\sevym \scriptfont\ymfam=\fivym \scriptscriptfont\ymfam=\fivym
  629. \def\prm{\fam\z@\sevrm}%
  630. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  631. \unboldmath\@boldfalse}\@boldfalse
  632. \def\boldmath{\@subfont\boldmath\unboldmath}%
  633. \def\pit{\fam\itfam\sevit}\textfont\itfam\sevit 
  634.    \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit 
  635. \def\psl{\@subfont\sl\it}%
  636. \def\pbf{\@getfont\pbf\bffam\@viipt{cmbx7}}%
  637. \def\ptt{\@subfont\tt\rm}%
  638. \def\psf{\@subfont\sf\rm}%
  639. \def\psc{\@subfont\sc\rm}%
  640. \def\pcyr{\@getfont\pcyr\cyrfam\@viipt{mcyr7}}%
  641. \def\pcyb{\@subfont\cyb\cyr}%
  642. \def\ly{\fam\lyfam\sevly}\textfont\lyfam\sevly 
  643.     \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly 
  644. \@setstrut \rm}
  645.  
  646. \def\@viipt{}
  647.  
  648. \def\viiipt{\textfont\z@\egtrm 
  649.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  650. \textfont\@ne\egtmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
  651. \textfont\tw@\egtsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
  652. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  653. \textfont\xmfam=\egtxm \scriptfont\xmfam=\sixxm \scriptscriptfont\xmfam=\fivxm
  654. \textfont\ymfam=\egtym \scriptfont\ymfam=\sixym \scriptscriptfont\ymfam=\fivym
  655. \def\prm{\fam\z@\egtrm}%
  656. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  657. \unboldmath\@boldfalse}\@boldfalse
  658. \def\boldmath{\@subfont\boldmath\unboldmath}%
  659. \def\pit{\fam\itfam\egtit}\textfont\itfam\egtit 
  660.    \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit 
  661. \def\psl{\@getfont\psl\slfam\@viiipt{cmsl8}}%
  662. \def\pbf{\@getfont\pbf\bffam\@viiipt{cmbx8}}%
  663. \def\ptt{\@getfont\ptt\ttfam\@viiipt{cmtt8}\@nohyphens\ptt\@viiipt}%
  664. \def\psf{\@getfont\psf\sffam\@viiipt{cmss8}}%
  665. \def\psc{\@getfont\psc\scfam\@viiipt{\@mcsc\@ptscale8}}%
  666. \def\pcyr{\@getfont\pcyr\cyrfam\@viiipt{mcyr8}}%
  667. \def\pcyb{\@getfont\pcyb\cybfam\@viiipt{mcyb8}}%
  668. \def\ly{\fam\lyfam\egtly}\textfont\lyfam\egtly 
  669.     \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly 
  670. \@setstrut \rm}
  671.  
  672. \def\@viiipt{}
  673.  
  674. \def\ixpt{\textfont\z@\ninrm 
  675.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  676. \textfont\@ne\ninmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
  677. \textfont\tw@\ninsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
  678. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  679. \textfont\xmfam=\ninxm \scriptfont\xmfam=\sixxm \scriptscriptfont\xmfam=\fivxm
  680. \textfont\ymfam=\ninym \scriptfont\ymfam=\sixym \scriptscriptfont\ymfam=\fivym
  681. \def\prm{\fam\z@\ninrm}%
  682. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  683.     \@boldfalse}\@boldfalse
  684. \def\boldmath{\@subfont\boldmath\unboldmath}%
  685. \def\pit{\fam\itfam\ninit}\textfont\itfam\ninit 
  686.    \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit 
  687. \def\psl{\@getfont\psl\slfam\@ixpt{cmsl9}}%
  688. \def\pbf{\fam\bffam\ninbf}\textfont\bffam\ninbf 
  689.    \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
  690. \def\ptt{\fam\ttfam\nintt}\textfont\ttfam\nintt
  691.    \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
  692. \def\psf{\@getfont\psf\sffam\@ixpt{cmss9}}%
  693. \def\psc{\@getfont\psc\scfam\@ixpt{\@mcsc\@ptscale9}}%
  694. \def\pcyr{\@getfont\pcyr\cyrfam\@ixpt{mcyr9}}%
  695. \def\pcyb{\@getfont\pcyb\cybfam\@ixpt{mcyb9}}%
  696. \def\ly{\fam\lyfam\ninly}\textfont\lyfam\ninly 
  697.    \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly 
  698. \@setstrut \rm}
  699.  
  700. \def\@ixpt{}
  701.  
  702. \def\xpt{\textfont\z@\tenrm 
  703.   \scriptfont\z@\sevrm \scriptscriptfont\z@\fivrm
  704. \textfont\@ne\tenmi \scriptfont\@ne\sevmi \scriptscriptfont\@ne\fivmi
  705. \textfont\tw@\tensy \scriptfont\tw@\sevsy \scriptscriptfont\tw@\fivsy
  706. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  707. \textfont\xmfam=\tenxm \scriptfont\xmfam=\sevxm \scriptscriptfont\xmfam=\fivxm
  708. \textfont\ymfam=\tenym \scriptfont\ymfam=\sevym \scriptscriptfont\ymfam=\fivym
  709. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  710.           \textfont\@ne\tenmi 
  711.           \textfont\tw@\tensy \textfont\lyfam\tenly
  712.           \@boldfalse}\@boldfalse
  713. \def\boldmath{\@ifundefined{tenmib}{\global\font\tenmib\@mbi 
  714.    \global\font\tensyb\@mbsy 
  715.    \global\font\tenlyb\@lasyb\relax\@addfontinfo\@xpt
  716.    {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
  717.         \textfont\@ne\tenmib \textfont\tw@\tensyb 
  718.         \textfont\lyfam\tenlyb \@prtct\@boldtrue}}}{}\@xpt\boldmath}%
  719. \def\prm{\fam\z@\tenrm}%
  720. \def\pit{\fam\itfam\tenit}\textfont\itfam\tenit \scriptfont\itfam\sevit
  721.     \scriptscriptfont\itfam\sevit
  722. \def\psl{\fam\slfam\tensl}\textfont\slfam\tensl 
  723.      \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
  724. \def\pbf{\fam\bffam\tenbf}\textfont\bffam\tenbf 
  725.     \scriptfont\bffam\tenbf \scriptscriptfont\bffam\tenbf 
  726. \def\ptt{\fam\ttfam\tentt}\textfont\ttfam\tentt
  727.     \scriptfont\ttfam\tentt \scriptscriptfont\ttfam\tentt
  728. \def\psf{\fam\sffam\tensf}\textfont\sffam\tensf
  729.     \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
  730. \def\psc{\@getfont\psc\scfam\@xpt{\@mcsc}}%
  731. \def\pcyr{\@getfont\pcyr\cyrfam\@xpt{mcyr10}}%
  732. \def\pcyb{\@getfont\pcyb\cybfam\@xpt{mcyb10}}%
  733. \def\ly{\fam\lyfam\tenly}\textfont\lyfam\tenly 
  734.    \scriptfont\lyfam\sevly \scriptscriptfont\lyfam\fivly 
  735. \@setstrut \rm}
  736.  
  737. \def\@xpt{}
  738.  
  739. \def\xipt{\textfont\z@\elvrm 
  740.   \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
  741. \textfont\@ne\elvmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
  742. \textfont\tw@\elvsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
  743. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  744. \textfont\xmfam=\tenxm \scriptfont\xmfam=\egtxm \scriptscriptfont\xmfam=\sixxm
  745. \textfont\ymfam=\tenym \scriptfont\ymfam=\egtym \scriptscriptfont\ymfam=\sixym
  746. \def\tencyr{\@getfont\pcyr\cyrfam\@xipt{mcyr10}}%
  747. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  748.           \textfont\@ne\elvmi \textfont\tw@\elvsy 
  749.           \textfont\lyfam\elvly \@boldfalse}\@boldfalse
  750. \def\boldmath{\@ifundefined{elvmib}{\global\font\elvmib\@mbi\@halfmag 
  751.          \global\font\elvsyb\@mbsy\@halfmag
  752.          \global\font\elvlyb\@lasyb\@halfmag\relax\@addfontinfo\@xipt
  753.          {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
  754.                 \textfont\@ne\elvmib \textfont\tw@\elvsyb 
  755.                 \textfont\lyfam\elvlyb\@prtct\@boldtrue}}}{}\@xipt\boldmath}%
  756. \def\prm{\fam\z@\elvrm}%
  757. \def\pit{\fam\itfam\elvit}\textfont\itfam\elvit 
  758.    \scriptfont\itfam\egtit \scriptscriptfont\itfam\sevit
  759. \def\psl{\fam\slfam\elvsl}\textfont\slfam\elvsl 
  760.     \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl 
  761. \def\pbf{\fam\bffam\elvbf}\textfont\bffam\elvbf 
  762.    \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
  763. \def\ptt{\fam\ttfam\elvtt}\textfont\ttfam\elvtt
  764.    \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
  765. \def\psf{\fam\sffam\elvsf}\textfont\sffam\elvsf
  766.     \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
  767. \def\psc{\@getfont\psc\scfam\@xipt{\@mcsc\@halfmag}}%
  768. \def\pcyr{\@subfont\cyr\tencyr}%
  769. \def\pcyb{\@subfont\cyb\tencyr}%
  770. \def\ly{\fam\lyfam\elvly}\textfont\lyfam\elvly 
  771.    \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly 
  772. \@setstrut \rm}
  773.  
  774. \def\@xipt{}
  775.  
  776. \def\xiipt{\textfont\z@\twlrm 
  777.   \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
  778. \textfont\@ne\twlmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
  779. \textfont\tw@\twlsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
  780. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  781. \textfont\xmfam=\tenxm \scriptfont\xmfam=\egtxm \scriptscriptfont\xmfam=\sixxm
  782. \textfont\ymfam=\tenym \scriptfont\ymfam=\egtym \scriptscriptfont\ymfam=\sixym
  783. \def\tencyr{\@getfont\pcyr\cyrfam\@xipt{mcyr10}}%
  784. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  785.           \textfont\@ne\twlmi 
  786.           \textfont\tw@\twlsy \textfont\lyfam\twlly
  787.           \@boldfalse}\@boldfalse
  788. \def\boldmath{\@ifundefined{twlmib}{\global\font\twlmib\@mbi\@magscale1\global
  789.         \font\twlsyb\@mbsy \@magscale1\global\font
  790.          \twllyb\@lasyb\@magscale1\relax\@addfontinfo\@xiipt
  791.               {\def\boldmath{\everymath
  792.                 {\mit}\everydisplay{\mit}\@prtct\@nomathbold
  793.                 \textfont\@ne\twlmib \textfont\tw@\twlsyb 
  794.                 \textfont\lyfam\twllyb\@prtct\@boldtrue}}}{}\@xiipt\boldmath}%
  795. \def\prm{\fam\z@\twlrm}%
  796. \def\pit{\fam\itfam\twlit}\textfont\itfam\twlit \scriptfont\itfam\egtit
  797.    \scriptscriptfont\itfam\sevit
  798. \def\psl{\fam\slfam\twlsl}\textfont\slfam\twlsl 
  799.      \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
  800. \def\pbf{\fam\bffam\twlbf}\textfont\bffam\twlbf 
  801.    \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
  802. \def\ptt{\fam\ttfam\twltt}\textfont\ttfam\twltt
  803.    \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
  804. \def\psf{\fam\sffam\twlsf}\textfont\sffam\twlsf
  805.     \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
  806. \def\psc{\@getfont\psc\scfam\@xiipt{\@mcsc\@magscale1}}%
  807. \def\pcyr{\@subfont\cyr\tencyr}%
  808. \def\pcyb{\@subfont\cyb\tencyr}%
  809. \def\ly{\fam\lyfam\twlly}\textfont\lyfam\twlly 
  810.    \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
  811.  \@setstrut \rm}
  812.  
  813. \def\@xiipt{}
  814.  
  815. \def\xivpt{\textfont\z@\frtnrm 
  816.   \scriptfont\z@\tenrm \scriptscriptfont\z@\sevrm
  817. \textfont\@ne\frtnmi \scriptfont\@ne\tenmi \scriptscriptfont\@ne\sevmi
  818. \textfont\tw@\frtnsy \scriptfont\tw@\tensy \scriptscriptfont\tw@\sevsy
  819. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  820. \textfont\xmfam=\tenxm \scriptfont\xmfam=\tenxm \scriptscriptfont\xmfam=\sevxm
  821. \textfont\ymfam=\tenym \scriptfont\ymfam=\tenym \scriptscriptfont\ymfam=\sevym
  822. \def\tencyr{\@getfont\pcyr\cyrfam\@xipt{mcyr10}}%
  823. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath 
  824.           \textfont\@ne\frtnmi \textfont\tw@\frtnsy 
  825.           \textfont\lyfam\frtnly \@boldfalse}\@boldfalse
  826. \def\boldmath{\@ifundefined{frtnmib}{\global\font
  827.         \frtnmib\@mbi\@magscale2\global\font\frtnsyb\@mbsy\@magscale2
  828.          \global\font\frtnlyb\@lasyb\@magscale2\relax\@addfontinfo\@xivpt
  829.                {\def\boldmath{\everymath
  830.                 {\mit}\everydisplay{\mit}\@prtct\@nomathbold
  831.               \textfont\@ne\frtnmib \textfont\tw@\frtnsyb 
  832.               \textfont\lyfam\frtnlyb\@prtct\@boldtrue}}}{}\@xivpt\boldmath}%
  833. \def\prm{\fam\z@\frtnrm}%
  834. \def\pit{\@getfont\pit\itfam\@xivpt{cmti10\@magscale2}}%
  835. \def\psl{\@getfont\psl\slfam\@xivpt{cmsl10\@magscale2}}%
  836. \def\pbf{\fam\bffam\frtnbf}\textfont\bffam\frtnbf 
  837.    \scriptfont\bffam\tenbf \scriptscriptfont\bffam\ninbf 
  838. \def\ptt{\@getfont\ptt\ttfam\@xivpt{cmtt10\@magscale2}\@nohyphens\ptt\@xivpt}%
  839. \def\psf{\@getfont\psf\sffam\@xivpt{\@mss\@magscale2}}%
  840. \def\psc{\@getfont\psc\scfam\@xivpt{\@mcsc\@magscale2}}%
  841. \def\pcyr{\@subfont\cyr\tencyr}%
  842. \def\pcyb{\@subfont\cyb\tencyr}%
  843. \def\ly{\fam\lyfam\frtnly}\textfont\lyfam\frtnly 
  844.    \scriptfont\lyfam\tenly \scriptscriptfont\lyfam\sevly 
  845. \@setstrut \rm}
  846.  
  847. \def\@xivpt{}
  848.  
  849. \def\xviipt{\textfont\z@\svtnrm 
  850.   \scriptfont\z@\twlrm \scriptscriptfont\z@\tenrm
  851. \textfont\@ne\svtnmi \scriptfont\@ne\twlmi \scriptscriptfont\@ne\tenmi
  852. \textfont\tw@\svtnsy \scriptfont\tw@\twlsy \scriptscriptfont\tw@\tensy
  853. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  854. \textfont\xmfam=\tenxm \scriptfont\xmfam=\tenxm \scriptscriptfont\xmfam=\tenxm
  855. \textfont\ymfam=\tenym \scriptfont\ymfam=\tenym \scriptscriptfont\ymfam=\tenym
  856. \def\tencyr{\@getfont\pcyr\cyrfam\@xipt{mcyr10}}%
  857. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  858.           \textfont\@ne\svtnmi \textfont\tw@\svtnsy \textfont\lyfam\svtnly
  859.           \@boldfalse}\@boldfalse
  860. \def\boldmath{\@subfont\boldmath\unboldmath}%
  861. \def\prm{\fam\z@\svtnrm}%
  862. \def\pit{\@getfont\pit\itfam\@xviipt{cmti10\@magscale3}}%
  863. \def\psl{\@getfont\psl\slfam\@xviipt{cmsl10\@magscale3}}%
  864. \def\pbf{\fam\bffam\svtnbf}\textfont\bffam\svtnbf 
  865.     \scriptfont\bffam\twlbf \scriptscriptfont\bffam\tenbf 
  866. \def\ptt{\@getfont\ptt\ttfam\@xviipt{cmtt10\@magscale3}\@nohyphens
  867.    \ptt\@xviipt}%
  868. \def\psf{\@getfont\psf\sffam\@xviipt{\@mss\@magscale3}}%
  869. \def\psc{\@getfont\psc\scfam\@xviipt{\@mcsc\@magscale3}}%
  870. \def\pcyr{\@subfont\cyr\tencyr}%
  871. \def\pcyb{\@subfont\cyb\tencyr}%
  872. \def\ly{\fam\lyfam\svtnly}\textfont\lyfam\svtnly 
  873.    \scriptfont\lyfam\twlly   \scriptscriptfont\lyfam\tenly
  874. \@setstrut \rm}
  875.  
  876. \def\@xviipt{}
  877.  
  878. \def\xxpt{\textfont\z@\twtyrm 
  879.   \scriptfont\z@\frtnrm \scriptscriptfont\z@\twlrm
  880. \textfont\@ne\twtymi \scriptfont\@ne\frtnmi \scriptscriptfont\@ne\twlmi
  881. \textfont\tw@\twtysy \scriptfont\tw@\frtnsy \scriptscriptfont\tw@\twlsy
  882. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  883. \textfont\xmfam=\tenxm \scriptfont\xmfam=\tenxm \scriptscriptfont\xmfam=\tenxm
  884. \textfont\ymfam=\tenym \scriptfont\ymfam=\tenym \scriptscriptfont\ymfam=\tenym
  885. \def\tencyr{\@getfont\pcyr\cyrfam\@xipt{mcyr10}}%
  886. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  887.         \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
  888.         \@boldfalse}\@boldfalse
  889. \def\boldmath{\@subfont\boldmath\unboldmath}%
  890. \def\prm{\fam\z@\twtyrm}%
  891. \def\pit{\@getfont\pit\itfam\@xxpt{cmti10\@magscale4}}%
  892. \def\psl{\@getfont\psl\slfam\@xxpt{cmsl10\@magscale4}}%
  893. \def\pbf{\@getfont\pbf\bffam\@xxpt{cmbx10\@magscale4}}%
  894. \def\ptt{\@getfont\ptt\ttfam\@xxpt{cmtt10\@magscale4}\@nohyphens\ptt\@xxpt}%
  895. \def\psf{\@getfont\psf\sffam\@xxpt{\@mss\@magscale4}}%
  896. \def\psc{\@getfont\psc\scfam\@xxpt{\@mcsc\@magscale4}}%
  897. \def\pcyr{\@subfont\cyr\tencyr}%
  898. \def\pcyb{\@subfont\cyb\tencyr}%
  899. \def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly 
  900.    \scriptfont\lyfam\frtnly \scriptscriptfont\lyfam\twlly 
  901. \@setstrut \rm}
  902.  
  903. \def\@xxpt{}
  904.  
  905. \def\xxvpt{\textfont\z@\twfvrm 
  906.   \scriptfont\z@\twtyrm \scriptscriptfont\z@\svtnrm
  907. \textfont\@ne\twtymi \scriptfont\@ne\twtymi \scriptscriptfont\@ne\svtnmi
  908. \textfont\tw@\twtysy \scriptfont\tw@\twtysy \scriptscriptfont\tw@\svtnsy
  909. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  910. \textfont\xmfam=\tenxm \scriptfont\xmfam=\tenxm \scriptscriptfont\xmfam=\tenxm
  911. \textfont\ymfam=\tenym \scriptfont\ymfam=\tenym \scriptscriptfont\ymfam=\tenym
  912. \def\tencyr{\@getfont\pcyr\cyrfam\@xipt{mcyr10}}%
  913. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  914.         \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
  915.         \@boldfalse}\@boldfalse
  916. \def\boldmath{\@subfont\boldmath\unboldmath}%
  917. \def\prm{\fam\z@\twfvrm}%
  918. \def\pit{\@subfont\it\rm}%
  919. \def\psl{\@subfont\sl\rm}%
  920. \def\pbf{\@getfont\pbf\bffam\@xxvpt{cmbx10\@magscale5}}%
  921. \def\ptt{\@subfont\tt\rm}%
  922. \def\psf{\@subfont\sf\rm}%
  923. \def\psc{\@subfont\sc\rm}%
  924. \def\pcyr{\@subfont\cyr\tencyr}%
  925. \def\pcyb{\@subfont\cyb\tencyr}%
  926. \def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly 
  927.    \scriptfont\lyfam\twtyly \scriptscriptfont\lyfam\svtnly 
  928. \@setstrut \rm}
  929.  
  930. \def\@xxvpt{}
  931.  
  932. % SPECIAL LaTeX character definitions
  933.  
  934. % Definitions of math operators added by LaTeX
  935. \mathchardef\mho"0A30
  936. \mathchardef\Join"3A31
  937. \mathchardef\Box"0A32
  938. \mathchardef\Diamond"0A33
  939. \mathchardef\leadsto"3A3B
  940. \mathchardef\sqsubset"3A3C
  941. \mathchardef\sqsupset"3A3D
  942. \def\lhd{\mathbin{< \hbox to -.43em{}\hbox{\vrule 
  943.       \@width .065em \@height .55em \@depth .05em}\hbox to .2em{}}}
  944. \def\rhd{\mathbin{\hbox to .3em{}\hbox{\vrule \@width .065em \@height 
  945.        .55em \@depth .05em}\hbox to -.43em{}>}}
  946. \def\unlhd{\mathbin{\leq \hbox to -.43em{}\hbox
  947.         {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to .2em{}}}
  948. \def\unrhd{\mathbin{ \hbox to .3em{}\hbox
  949.  {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to -.43em{}\geq}}
  950.  
  951. % Definition of \$ to work in italic font (since it produces a pound sterling
  952. % sign in the cmit font.
  953.  
  954. \def\${\protect\pdollar}
  955. \def\pdollar{{\ifdim \fontdimen\@ne\font >\z@ \sl \fi\char`\$}}
  956.  
  957. % Definition of pound sterling sign.
  958.  
  959. \def\pounds{{\it \char'44}}
  960.  
  961. % Definition of \copyright changed so it works in other type styles,
  962. % and so it is robust
  963. \def\copyright{\protect\pcopyright}
  964. \def\pcopyright{{\rm\ooalign{\hfil
  965.      \raise.07ex\hbox{c}\hfil\crcr\mathhexbox20D}}}
  966.  
  967. % Stuff from mssymb.tex (AMS symbols)
  968.  
  969. \mathchardef\boxdot="2B00
  970. \mathchardef\boxplus="2B01
  971. \mathchardef\boxtimes="2B02
  972. \mathchardef\square="0B03
  973. \mathchardef\blacksquare="0B04
  974. \mathchardef\centerdot="2B05
  975. \mathchardef\lozenge="0B06
  976. \mathchardef\blacklozenge="0B07
  977. \mathchardef\circlearrowright="3B08
  978. \mathchardef\circlearrowleft="3B09
  979. \mathchardef\rightleftharpoons="3B0A
  980. \mathchardef\leftrightharpoons="3B0B
  981. \mathchardef\boxminus="2B0C
  982. \mathchardef\Vdash="3B0D
  983. \mathchardef\Vvdash="3B0E
  984. \mathchardef\vDash="3B0F
  985. \mathchardef\twoheadrightarrow="3B10
  986. \mathchardef\twoheadleftarrow="3B11
  987. \mathchardef\leftleftarrows="3B12
  988. \mathchardef\rightrightarrows="3B13
  989. \mathchardef\upuparrows="3B14
  990. \mathchardef\downdownarrows="3B15
  991. \mathchardef\upharpoonright="3B16
  992. \let\restriction=\upharpoonright
  993. \mathchardef\downharpoonright="3B17
  994. \mathchardef\upharpoonleft="3B18
  995. \mathchardef\downharpoonleft="3B19
  996. \mathchardef\rightarrowtail="3B1A
  997. \mathchardef\leftarrowtail="3B1B
  998. \mathchardef\leftrightarrows="3B1C
  999. \mathchardef\rightleftarrows="3B1D
  1000. \mathchardef\Lsh="3B1E
  1001. \mathchardef\Rsh="3B1F
  1002. \mathchardef\rightsquigarrow="3B20
  1003. \mathchardef\leftrightsquigarrow="3B21
  1004. \mathchardef\looparrowleft="3B22
  1005. \mathchardef\looparrowright="3B23
  1006. \mathchardef\circeq="3B24
  1007. \mathchardef\succsim="3B25
  1008. \mathchardef\gtrsim="3B26
  1009. \mathchardef\gtrapprox="3B27
  1010. \mathchardef\multimap="3B28
  1011. \mathchardef\therefore="3B29
  1012. \mathchardef\because="3B2A
  1013. \mathchardef\doteqdot="3B2B
  1014. \let\Doteq=\doteqdot
  1015. \mathchardef\triangleq="3B2C
  1016. \mathchardef\precsim="3B2D
  1017. \mathchardef\lesssim="3B2E
  1018. \mathchardef\lessapprox="3B2F
  1019. \mathchardef\eqslantless="3B30
  1020. \mathchardef\eqslantgtr="3B31
  1021. \mathchardef\curlyeqprec="3B32
  1022. \mathchardef\curlyeqsucc="3B33
  1023. \mathchardef\preccurlyeq="3B34
  1024. \mathchardef\leqq="3B35
  1025. \mathchardef\leqslant="3B36
  1026. \mathchardef\lessgtr="3B37
  1027. \mathchardef\backprime="0B38
  1028. \mathchardef\risingdotseq="3B3A
  1029. \mathchardef\fallingdotseq="3B3B
  1030. \mathchardef\succcurlyeq="3B3C
  1031. \mathchardef\geqq="3B3D
  1032. \mathchardef\geqslant="3B3E
  1033. \mathchardef\gtrless="3B3F
  1034. \mathchardef\sqsubset="3B40
  1035. \mathchardef\sqsupset="3B41
  1036. \mathchardef\vartriangleright="3B42
  1037. \mathchardef\vartriangleleft="3B43
  1038. \mathchardef\trianglerighteq="3B44
  1039. \mathchardef\trianglelefteq="3B45
  1040. \mathchardef\bigstar="0B46
  1041. \mathchardef\between="3B47
  1042. \mathchardef\blacktriangledown="0B48
  1043. \mathchardef\blacktriangleright="3B49
  1044. \mathchardef\blacktriangleleft="3B4A
  1045. \mathchardef\vartriangle="3B4D
  1046. \mathchardef\blacktriangle="0B4E
  1047. \mathchardef\triangledown="0B4F
  1048. \mathchardef\eqcirc="3B50
  1049. \mathchardef\lesseqgtr="3B51
  1050. \mathchardef\gtreqless="3B52
  1051. \mathchardef\lesseqqgtr="3B53
  1052. \mathchardef\gtreqqless="3B54
  1053. \mathchardef\Rrightarrow="3B56
  1054. \mathchardef\Lleftarrow="3B57
  1055. \mathchardef\veebar="2B59
  1056. \mathchardef\barwedge="2B5A
  1057. \mathchardef\doublebarwedge="2B5B
  1058. \mathchardef\angle="0B5C
  1059. \mathchardef\measuredangle="0B5D
  1060. \mathchardef\sphericalangle="0B5E
  1061. \mathchardef\varpropto="3B5F
  1062. \mathchardef\smallsmile="3B60
  1063. \mathchardef\smallfrown="3B61
  1064. \mathchardef\Subset="3B62
  1065. \mathchardef\Supset="3B63
  1066. \mathchardef\Cup="2B64
  1067. \let\doublecup=\Cup
  1068. \mathchardef\Cap="2B65
  1069. \let\doublecap=\Cap
  1070. \mathchardef\curlywedge="2B66
  1071. \mathchardef\curlyvee="2B67
  1072. \mathchardef\leftthreetimes="2B68
  1073. \mathchardef\rightthreetimes="2B69
  1074. \mathchardef\subseteqq="3B6A
  1075. \mathchardef\supseteqq="3B6B
  1076. \mathchardef\bumpeq="3B6C
  1077. \mathchardef\Bumpeq="3B6D
  1078. \mathchardef\lll="3B6E
  1079. \let\llless=\lll
  1080. \mathchardef\ggg="3B6F
  1081. \let\gggtr=\ggg
  1082. \mathchardef\circledS="0B73
  1083. \mathchardef\pitchfork="3B74
  1084. \mathchardef\dotplus="2B75
  1085. \mathchardef\backsim="3B76
  1086. \mathchardef\backsimeq="3B77
  1087. \mathchardef\complement="0B7B
  1088. \mathchardef\intercal="2B7C
  1089. \mathchardef\circledcirc="2B7D
  1090. \mathchardef\circledast="2B7E
  1091. \mathchardef\circleddash="2B7F
  1092. \def\ulcorner{\delimiter"4B70B70 }
  1093. \def\urcorner{\delimiter"5B71B71 }
  1094. \def\llcorner{\delimiter"4B78B78 }
  1095. \def\lrcorner{\delimiter"5B79B79 }
  1096. \def\yen{\mathhexbox B55 }
  1097. \def\checkmark{\mathhexbox B58 }
  1098. \def\circledR{\mathhexbox B72 }
  1099. \def\maltese{\mathhexbox B7A }
  1100. \mathchardef\lvertneqq="3C00
  1101. \mathchardef\gvertneqq="3C01
  1102. \mathchardef\nleq="3C02
  1103. \mathchardef\ngeq="3C03
  1104. \mathchardef\nless="3C04
  1105. \mathchardef\ngtr="3C05
  1106. \mathchardef\nprec="3C06
  1107. \mathchardef\nsucc="3C07
  1108. \mathchardef\lneqq="3C08
  1109. \mathchardef\gneqq="3C09
  1110. \mathchardef\nleqslant="3C0A
  1111. \mathchardef\ngeqslant="3C0B
  1112. \mathchardef\lneq="3C0C
  1113. \mathchardef\gneq="3C0D
  1114. \mathchardef\npreceq="3C0E
  1115. \mathchardef\nsucceq="3C0F
  1116. \mathchardef\precnsim="3C10
  1117. \mathchardef\succnsim="3C11
  1118. \mathchardef\lnsim="3C12
  1119. \mathchardef\gnsim="3C13
  1120. \mathchardef\nleqq="3C14
  1121. \mathchardef\ngeqq="3C15
  1122. \mathchardef\precneqq="3C16
  1123. \mathchardef\succneqq="3C17
  1124. \mathchardef\precnapprox="3C18
  1125. \mathchardef\succnapprox="3C19
  1126. \mathchardef\lnapprox="3C1A
  1127. \mathchardef\gnapprox="3C1B
  1128. \mathchardef\nsim="3C1C
  1129. \mathchardef\napprox="3C1D
  1130. \mathchardef\varsubsetneq="3C20
  1131. \mathchardef\varsupsetneq="3C21
  1132. \mathchardef\nsubseteqq="3C22
  1133. \mathchardef\nsupseteqq="3C23
  1134. \mathchardef\subsetneqq="3C24
  1135. \mathchardef\supsetneqq="3C25
  1136. \mathchardef\varsubsetneqq="3C26
  1137. \mathchardef\varsupsetneqq="3C27
  1138. \mathchardef\subsetneq="3C28
  1139. \mathchardef\supsetneq="3C29
  1140. \mathchardef\nsubseteq="3C2A
  1141. \mathchardef\nsupseteq="3C2B
  1142. \mathchardef\nparallel="3C2C
  1143. \mathchardef\nmid="3C2D
  1144. \mathchardef\nshortmid="3C2E
  1145. \mathchardef\nshortparallel="3C2F
  1146. \mathchardef\nvdash="3C30
  1147. \mathchardef\nVdash="3C31
  1148. \mathchardef\nvDash="3C32
  1149. \mathchardef\nVDash="3C33
  1150. \mathchardef\ntrianglerighteq="3C34
  1151. \mathchardef\ntrianglelefteq="3C35
  1152. \mathchardef\ntriangleleft="3C36
  1153. \mathchardef\ntriangleright="3C37
  1154. \mathchardef\nleftarrow="3C38
  1155. \mathchardef\nrightarrow="3C39
  1156. \mathchardef\nLeftarrow="3C3A
  1157. \mathchardef\nRightarrow="3C3B
  1158. \mathchardef\nLeftrightarrow="3C3C
  1159. \mathchardef\nleftrightarrow="3C3D
  1160. \mathchardef\divideontimes="2C3E
  1161. \mathchardef\varnothing="0C3F
  1162. \mathchardef\nexists="0C40
  1163. \mathchardef\mho="0C66
  1164. \mathchardef\thorn="0C67
  1165. \mathchardef\beth="0C69
  1166. \mathchardef\gimel="0C6A
  1167. \mathchardef\daleth="0C6B
  1168. \mathchardef\lessdot="3C6C
  1169. \mathchardef\gtrdot="3C6D
  1170. \mathchardef\ltimes="2C6E
  1171. \mathchardef\rtimes="2C6F
  1172. \mathchardef\shortmid="3C70
  1173. \mathchardef\shortparallel="3C71
  1174. \mathchardef\smallsetminus="2C72
  1175. \mathchardef\thicksim="3C73
  1176. \mathchardef\thickapprox="3C74
  1177. \mathchardef\approxeq="3C75
  1178. \mathchardef\succapprox="3C76
  1179. \mathchardef\precapprox="3C77
  1180. \mathchardef\curvearrowleft="3C78
  1181. \mathchardef\curvearrowright="3C79
  1182. \mathchardef\digamma="0C7A
  1183. \mathchardef\varkappa="0C7B
  1184. \mathchardef\hslash="0C7D
  1185. \mathchardef\hbar="0C7E
  1186. \mathchardef\backepsilon="3C7F
  1187.  
  1188. %\def\Bbb{\ifmmode\let\next\Bbb@\else
  1189. % \def\next{\@warning{Use \string\Bbb\space only in math mode}}\fi\next}
  1190. %\def\Bbb@#1{{\Bbb@@{#1}}}
  1191. %\def\Bbb@@#1{\fam\ymfam#1}
  1192.  
  1193. \def\Bbb{\ifmmode\let\next\Bbb@\else
  1194.  \def\next{\@warning{Use \string\Bbb\space only in math mode}}\fi\next}
  1195. \def\Bbb@{\fam\ymfam}
  1196.  
  1197. %            *****    CYRACC.DEF    *****        18 Aug 84, bb
  1198. %
  1199. %    Access to the cyrillic is through the new MR transliteration scheme,
  1200. %    using TeX/Metafont ligature capability.  (An alternate set of
  1201. %    ligatures exists, for accessing letters beyond the 26 located in
  1202. %    the font positions of the 26 roman letters.  An authoritative list
  1203. %    of the ligature rules is in the file  cyrillic.ligs.)  Successful
  1204. %    use of this file requires appropriate cyrillic and accent fonts,
  1205. %    arranged according to the AMS/MR scheme.
  1206. %
  1207. %    This is an interim version.  Not everything works yet.
  1208. %    The following are known to be less than satisfactory:
  1209. %
  1210. %    the intermediate `ligatures' for shch access numerals;
  1211. %    primes (transliteration of hard/soft signs) use math mode;
  1212. %    underbar on `cap' double prime is too low (hard sign);
  1213. %    thorn d's don't yet exist;
  1214. %    \cydot uses math mode.
  1215. %
  1216. %
  1217. %    Notes on the macros:
  1218. %
  1219. %    The single space following each hex character code is necessary
  1220. %    to prevent the next input character from being gobbled.
  1221.  
  1222. \def\cyracc{\def\cydot{{\kern0pt}}%
  1223.     \def\cprime{\char"7E }\def\Cprime{\char"5E }%
  1224.     \def\cdprime{\char"7F }\def\Cdprime{\char"5F }%
  1225.     \def\dbar{dj}\def\Dbar{Dj}%
  1226.     \def\dz{\char"1E }\def \Dz{\char"16 }%
  1227.     \def\dzh{\char"0A }\def \Dzh{\char"02 }%
  1228.     \def\'##1{\if c##1\char"0F %
  1229.         \else \if C##1\char"07 %
  1230.         \else \accent"26 ##1\fi \fi }%
  1231.     \def\`##1{\if e##1\char"0B %
  1232.         \else \if E##1\char"03 %
  1233.         \else \errmessage{accent \string\` not defined in cyrillic}%
  1234.                 ##1\fi \fi }%
  1235.     \def\=##1{\if e##1\char"0D %
  1236.         \else \if E##1\char"05 %
  1237.         \else \if \i##1\char"0C %
  1238.         \else \if I##1\char"04 %
  1239.         \else \errmessage{accent \string\= not defined in cyrillic}%
  1240.                 ##1\fi \fi \fi \fi }%
  1241.     \def\u##1{\if \i##1\accent"24 i%
  1242.         \else \accent"24 ##1\fi }%
  1243.     \def\"##1{\if \i##1\accent"20 \char"3D %
  1244.         \else \if I##1\accent"20 \char"04 %
  1245.         \else \accent"20 ##1\fi \fi }}
  1246.